home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
science
/
sm32a.zip
/
GRAPH.SM
< prev
next >
Wrap
Text File
|
1993-11-09
|
373b
|
9 lines
# this is demo for drawing a group of circles and ovals.
# Circles are 9 planets around sun.
graph # graph mode
do(circle(getmaxx*0.5+2.5*x,getmaxy*0.5,5), x,0,90,10)
do(oval(getmaxx*0.5,getmaxy*0.5,2.5*x,x), x,10,90,10)
readchar # pause graph by read a char
text # text mode